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This chapter contains example programs written in OPL. The programs are not intended to demonstrate 
all the features of OPL, but they should give you a few hints. To find out more about a particular 
command or function, refer to the ‘Alphabetic Listing’ chapter. 


There are some other example programs in the ‘Advanced Topics’ chapter. 
When you're typing in 


e You can type procedures in all uppercase, all lowercase or any mixture of the two. Be careful 
with character codes, though - %A is different to Sa. 


e When there is more than one command or function on a line, separate each one with a space and 
colon - for example: 





CLS :PRINT “hello” :GET 
However, the colon is optional before a REM statement for example: 


CLS REM Clears the screen 





and 











CLS :REM Clears the screen 


are both OK. 


e Put a space between a command and the arguments which follow it - for example PRINT aS. 
But don’t put a space between a function and the arguments in brackets - for example 
CHRS (16). 





e It doesn’t matter how many spaces or tabs you have at the beginning of a line. 


Errors 
The following programs do not include full error handling code. This means that they are shorter and 
easier to understand, but may fail if, for example, you enter the wrong type of input to a variable. 


If you want to develop other programs from these example programs, it is recommended that you add 


some error handling code to them. See the ‘Error Handling’ chapter for further details. 


Countdown Timer 

an 

I For the Series 5: 

PROC timer: 
LOCAL min&,sec&,Secs&,1i% 
secé=1 


daINIT “Countdown timer” 





dLONG miné&, “Minutes”,0,59 





ALONG sec&,“Seconds”,0,59 
GBUTTONS “Cancel”,-27,Start”,%s 
IF DIALOG=%s 

FONT 12,16 


secs&=sec&é+60*min& 








WHILE secsé& 
PAUSE -20 REM a key gets us out 
IF KEY 
RETURN 
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ENDIF 





secs&=secs&-1 
AT 20,6 :PRINT NUMS (secs&/60,-2) ;“m” 
AT 24,6 :PRINT NUMS (modé: (secsé&, int (60) ) 


ENDWH 





DO 





BEE 








I 
TU 
ol 

~ 
Ww 
jo) 
oO 





PAUSE 10 











IF KEY :BREAK :ENDIFE 














ing 
Z 
oO 
as) 





PROC modé&: (a&,b&) 
REM modulo function 


REM computes (a&)mod(bé&) 





RETURN a&-(a&/b&) *b& 


ENDP 





I For the Series 3c and Siena: 


PROC timer: 


LOCAL min&,sec&,secs&,1i% 





CACHE 2000,2000 
secé=1 
aINIT “Countdown timer” 


ALONG min&,”Minutes”,0,59 








dLONG secé&,”Seconds”,0,59 
ABUTTONS “Cancel”,-27,”Start”,13 
IF DIALOG=13 

STATUSWIN ON 

FONT 11,16 

secs&=sec&+60*min& 


WHILE secs& 


PAUSE -20 R 
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172) ps" 


EM a key gets us out 





secs&=secs&-1 


AT 20,6 :PRINT NUMS (secs&/60,-2) ;”m” 


etal 




















AT 24,6 :PRINT NUMS (modé&: (secs&,int(60)),-2);"s 
ENDWH 
DO 

BEEP 5,300 

PAUSE 10 

IF KEY :BREAK :ENDIE 




















ies 
Z 
oO 
tg 





PROC modé&: (a&,b&) 
REM modulo function 


REM computes (a&)mod(bé&) 





RETURN aé&-(a&/b&) *b& 


ENDP 





Dice 
When the program is run, a message is displayed saying that the dice is rolling. You then press a key to 
stop it. A random number from one to six is displayed and you choose whether to roll again or not. 


PROC dice: 
LOCAL dice% 
DO 
CLS :PRINT “DICE ROLLING:” 


T. 





AT 1,3 :PRINT “Press a key to stop” 
DO 

dice%S=(RND*6+1) 

AT 1,2 :PRINT dice% 


UNTIL KEY 








BEEP 5,300 








GINIT “Roll again?” 





GBUTTONS “No”,%N,“Yes”, oY 
UNTIL DIALOG<>%Sy 


ENDP 





Random numbers 


In this example, the RND function returns a random floating-point number, between 0 and 0.9999999... 
It is then multiplied by 6, and 1 is added, to give a number from | to 6.9999999... This is rounded down 
to a whole number (from | to 6) by assigning to the integer dices. 
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Birthdays 
This procedure finds out on which day of the week people were born. 


PROC Birthday: 
LOCAL dayé,monthé, yearé&, DayInwk% 
DO 
dINIT 


aTEXT “”,‘“Enter your date of birth”,2 








aTEXT ‘“”,“Use numbers, eg 23 12 1963”,$202 
ALONG dayé,“Day”,1,31 
dLONG monthé, “Month”,1,12 





dLONG yearé&,“Year”,1900,2155 


IF DIALOG=0 





BREAK 


ENDIF 





DayInWk%=DOW (day&,monthé&, yearé) 
CLS :PRINT DAYNAMES (DayInWk%) ,day&,month&, year& 





GINIT “Again?” 
GBUTTONS “No”, <3N,“Yes”, oY 
UNTIL DIALOG<>%y 


ENDP 





The DOW function works out what day of the week, from 1 to 7, a date is. The DAYNAMES$ function 
then converts this to MON, TUE and so on. MON is | and SUN is 7. 


Data files 


The following module works on a data file called DATA, containing names, addresses, post codes and 
telephone numbers. It assumes this file has already been created with a statement like this: 














CREATE “DATA”,A,nmS,ad1$,ad2$,ad3$,ad4$,tels 


I Touse a database created with the Data application, see the ‘Series 5 Database Handling’ chapter. 
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I Touse the Data file which the Database application uses, you need to open 
“\DAT\DATA. DBF”. 


The first procedure is the controlling, calling procedure, offering you choices. The next two let you add 
or edit records. 


PROC files: 
GLOBAL nm$ (255),ad1$ (255) ,ad2$ (255) 








GLOBAL ad3$ (255) ,ad4$ (255) ,tel$ (255), titles (30) 





LOCAL g3 





OPEN “DATA”,A,nm$,ad1S$,ad2$,ad3$,ad4$,tels 





DO 


CLS 
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dINIT “Select action” 


R 





Gl 





M !!Swap prompt and body in dTEXT for Series 3c and Siena!! 


GTEXT “Add new record”,‘”,$402 





GTEXT “Find and edit a record”,’”,$402 
g%=DIALOG 
IF gs=2 

add: 











ELSEIF g%=3 


edit: 











PROC add: 
nmS=™ uw cadis=“ uw :ad2S=" 
ad3S="" sad45a" :telS=” 





titleS=“Enter a new record” 





IF showd%: 


APPEND 








eal 
Zz 
oO 
tg 





PROC edit: 
LOCAL searchS (30),p% 


GAINIT “Find and edit a record” 





dEDIT search$,“Search string”,15 
IF DIALOG 
FIRST 


IF FIND(‘“*”+search$t+™*”) =0 











ALERT (“No matching records”) 





RETURN 


ENDIF 





DO 
nmS=A.nm$ :ad1S=A.ad1$ :ad2S=A.ad25$ 
ad3$=A.ad3$ :ad4$=A.ad4S :telS=A.tel$ 





titleS=“Edit matching record” 


IF showd’: 
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UPDATE :BREAK 























ENDIF 





FIND (“*”+searchS+*”) 





IF EOF 





ALERT (“No more matching records”) 














ies 
Z 
oO 
tg 





PROC showd%: 
LOCAL ret% 


dINIT titles 


ee 


DIT nmS, “Name”, 25 
EDIT ad1l$,‘“Street”,25 
EDIT ad2$,“Town”,25 
EDIT ad3$,‘County”,25 


EDIT ad4$,“Postcode”, 25 


ao 2 ®@ 2 @ 2 
= 


Gl 





DIT tel$,“Phone”,25 





ret%S=DIALOG 


IF ret 


oe 


A.nmS=nm$ :A.adl$=ad1$ :A.ad2$=ad2$ 
A.ad3S=ad3S :A.ad4S=ad4$ :A.tel$=tel$ 


ENDIF 





RETURN ret% 





ENDP 





Re-order 


When you use the Data application and enter or change an entry, it goes to the end of the database file. 
However, if, in your address book, each entry begins with a person’s second name - for example, 
Tate, Hazel - youcan use this program to re-order all of the entries. This doesn’t change the way 
you find an entry, but after running it you can step through it like a paper address book, or print it out 
neatly ordered. 


This procedure can be used as required for any data file in internal memory or on memory disk for the 
Series 5 or on Ram SSDs for the Series 3c. For the Series 3c, note that if used on a data file held on a 
Flash SSD it would use up disk space each time you run it. The dialog it shows is set to show data files 
used by Data. 


You can adapt this procedure to sort other types of data files in other ways. 
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aN Note that on the Series 5, this would be better done with the more advanced features available in 
the Database OPX. See the ‘Using OPXs on the Series 5’ chapter for more details of this. You 
could also use restriction of files by UID in the dFILE keyword to restrict to databases only. 


PROC reorder: 


ole 


LOCAL last%,e$ (255) ,e%,lpos%,n$(255),c 
n$=“\dat\*.dbf” 
GINIT “Re-order Data file” 


GFILE n$,”Filename”, 0 








IF DIALOG REM returns 0 if cancelled 


OPEN n$,a,a$ 





LAST :last%=POS 


IF COUNT>0 





WHILE last%<>0 
POSITION last% :e%=POS 


eS=UPPERS (a.a$) 





DO 


IF UPPERS (a.a$) <e$ 





eS=UPPERS (a.aS$) :e%=POS 





ENDIF 


lpos%s=POS :BACK 





UNTIL pos=1 and lpos%=1 
POSITION e% 
PRINT eS 


UPDATE :last%=last%-1 





r 





ENDWH 





ENDIF 


CLOSE 








GET 








cal 





NDP 


If you try to reorder a file which is already open (i.e. shown in bold on the System screen) you will see 
a ‘File’ is in use’ (‘File or device in use’ on the Series 3c) error. You should .close the file and then try 
again. 


Stopwatch 


Here is a simple stopwatch with lap times. Note that the Psion switches off automatically after a time if 
no keys are pressed; you may want to disable this feature (from the Control Panel in the System screen 
on the Series 5 or with the ‘Auto switch off’ option in the System screen on the Series 3c) before 
running this program. 


Each timing is only accurate to within one second, as the procedure is based on the SECOND function. 
PROC watch: 


LOCAL k%,s%,se%,mi% 
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FONT 11,16 
AT 20,1 :PRINT “Stopwatch” 
AT 15,11 :PRINT “Press a key to start” 


GET 





DO 





CLS :mis=0 :se%=0 :s%=SECOND 





AT 15,11 :PRINT “ S=Stop, L=Lap ” 


loop:: 








kS=KEY AND S$ffdf REM ensures upper cas 





IF kS=%S 
GOTO pause:: 


ENDIF 





IF kS=SL 
AT 20,6 :PRINT “Lap: “;mi%;“:”; 


IF se%<10 :PRINT “0”; :ENDIF 





PRINT se%;“ ”; 


ENDIF 





IF SECOND<>s% 





SsS=SECOND :se%S=se%t1 








IF se%=60 :se%=0 :miS=mi%t+l :ENDIF 
AT 17,8 
PRINT “Mins”,mi%,“Secs”, 


IF se%<10 :PRINT “0”; :ENDIF 





PRINT se%;“ “; 


ENDIF 





GOTO loop:: 
pause:: 


mINIT 





mCARD “Watch”, “Restart”, %r,“Zero”, 6z, *Exit”, Sx 





kS=MENU 

IF kS=Sr 
GOTO loop:: 

ENDIF 


UNTIL k%S<>%z 





ENDP 





Inserting a new line in a database 


If you insert a new label in a database, the entries will no longer match up with the labels. Rather than 
using the ‘Update’ option on every entry, to insert a suitable blank line in each one, you can use this 
program to do this for the entire data file. 
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The Data application allows you to use as many lines (fields) as you want in an entry (record); OPL can 
only access 32 fields. This program only lets you insert a new field in the first 16 fields, although you 
can adapt the program simply to check up to 31 fields. 


If, in Data, you enter a line longer than 255 characters, it is stored as two fields, with a character of 
code 20 at the start of the second field. This program correctly handles any such fields. 


The program checks that the 17th field is blank, as it will be overwritten by what was the 16th field. If 
a long entry has a 17th field, and it contains text, the program skips this entry. The rest of longer entries 
- even if there are more than 32 fields will be unchanged. 


If you insert a new field at a position below the last label, Data will not show it, even when using 
‘Update’. 


The maximum record length in OPL is 1022 characters. The OPEN command will display a ‘Record 
too large’ error if the file contains a record longer than this. 


PROC label: 
LOCAL a%,b%,c%,d%,s$(128),s&,i$ (17,255) 
s$=“\dat\*.dbtf” 
GINIT “Insert new field” 


dFILE s$,“Data file”,0 





dLONG s&,“Break at line (1-16)”,1,16 

IF DIALOG 
OPEN s$,A,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$,k$,1$,m$,n$,0$,p$,q$ 
cS=COUNT :a%=1 





WHILE a%<=c% 





AT 1,1 :PRINT “Entry”,a%,”of",c%, 














IF A.qS=” REM Entry (hopefully) not too long 





i$(1)=A.a$ :1$(2)=A.bS :1$(3)=A.c$ :1$(4)=A.d$ 
i$(5)=A.eS$ :1$(6)=A.f£$ :i1$(7)=A.g$ :1$(8)=A.hS$S 
i$(9)=A.iS$ :1$(10)=A.j$ :1$(11)=A.k$ :1$(12)=A.1$ 
i$(13)=A.m$ :i$(14)=A.n$ :i$(15)=A.o$ :i$(16)=A.ps 






































6=0 :bs=0 

WHILE d%<s&+b% REM find field to break at 
ds=d%+1 
IF LEFTS (i$ (dS) ,1)=CHRS (20) REM line>255... 

bs=be+1 REM ...so it’s 2 fields 

ENDIF 

ENDWH 

bS=17 

WHILE b%3>d% REM copy the fields down 
i$ (b%)=i$ (b%-1) :bS=b%-1 

ENDWH 

iS (d%)=%” REM and make an empty field 


A.aS=1i$(1) :A.b$=i$(2) :A.c$=i$(3) :A.d$=i$ (4) 
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A.e$=i$ (5) :A.£$=i$(6) :A.g$=1i$ (7) 
A.iS=i$(9) :A.j$=i1$(10) :A.k$=i$(1 
A.m$=i$(13) :A.n$=i$(14) :A.o$=iS ( 
A.q$=i$ (17) 

ELSE 











PRINT “has too many fields” 





PRINT “Press a key...” :GET 


ENDIF 





UPDATE :FIRST 


as=aSt1 





ENDWH :CLOS! 





le 


ENDIF 








ENDP 





Bouncing Ball 


PROC bounce: 





.OCAL posxX%,posY%, changeX%, changeY%, k% 








OCAL scrx%,scry%,info% (10) 








r. 





SCR 





-ENINFO info%() 





scrxS=info%(3) :scrys=infos% (4) 
posxXS=1 :posY%=1 
changeX%=1 :changeY%=1 


DO 








posxX%S=posxX%+changex% 








posY%S=posY%+changeY% 
IF posxX%=1 OR posxX%=scrx% 


changeX%=-changeX% 

















REM at edge ball changes direction 
BEEP 2,600 REM 
ENDIF 
IF posY%S=1 or posY%=scry% REM 


changeY%=-changeY% 



































BEEP 2,200 REM 
ENDIF 
AT posX%,posY% :PRINT “0”; 
PAUSE 2 REM 
AT posx%,posY% :PRINT “ ”; REM 
kS=KEY 
UNTIL k% 
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:A.h$=i$ (8) 
1) :A.1$=i$ (12) 
15) :A.p$=i$ (16) 


low beep 


same for y 


high beep 


Try changing this 


removes old ‘0’ character 


ENDP 





Circles 
an 
I Here is an example program for drawing circles or ellipses, filled or unfilled for the Series 5: 
PROC draw: 
LOCAL d% 
DO 
dINIT “Draw a circle or an ellipse?” 


ABUTTONS “Circle”,%c OR $200,‘“Ellipse”,%e OR $200,“Cancel”,-27 





%=DIALOG 
IF ds=Sc 


circle: 





ELSEIF ds=%e 








ellipse: 
ENDIF 


UNTIL d%=0 





ENDP 





PROC circle: 
LOCAL x&,y&,r&,£% 
GINIT “Drawing parameters” 
X&=320 :dLONG x&,”Centre x position”,0, 639 
y&=120 :dLONG y&,”Centre y position”,0,249 


r&=20 :dLONG r&,”Radius”,1,320 





£%=0 :dCHECKBOX £%,”Filled” 
GBUTTONS “Draw”, 3d,“Cancel”,-27 
IF DIALOG 

gAT x&,y& 


gCIRCLE r&,f% 





GET 





gCLS 


ENDIF 





ENDP 





PROC ellipse: 
LOCAL x&,y&,hr&,vr&,£% 
GINIT “Drawing parameters” 


X&=320 :dLONG x&,”Centre x position”,0, 639 





y&=120 :dLONG yé,”Centre y position”,0,249 
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hré=20 :dLONG hré&,”Horizontal Radius”,1,320 


vr&=20 :dLONG vré&,”Vertical Radius”,1,320 





£%=0 :dCHECKBOX £%,”Filled” 
dBUTTONS “Draw”, $d, “Cancel”, -27 
IF DIALOG 


gAT x&,y& 











gELLIPSE hré,vr&,f£% 





GET 











fl 
Z 
oO 
tg 


I Here are two example programs for drawing circles - the first hollow, the second filled for the 
Series 3c and Siena: 


PROC circle: 
LOCAL a%(963),c&,d%,x&, Y&, r&,h, YS, Y1S5,C2% 
GINIT “Draw a circle” 
x&=240 :dLONG x&,“Centre x pos”,0,479 


y&=80 :dLONG yé&,“Centre y pos”,0,159 





r&=20 :dLONG r&,“Radius”,1,120 
h=1 :dFLOAT h,“Relative height”,0,999 
IF DIALOG 
aS(1l)=x&+r& :aS(2)=y& :a%(3)=4*ré& 
c&=1 :dS=2*r& :y1l%=0 


WHILE c&<=d% 





C25=Cc&%*2 :yS=-SOR(r&*c2S-c&**2) *h 
a%(2+c02%)=-2 :a% (3+c02%) =ys-yl1% 


ylS=y%S :c&=c&t1 








WHILE c&<=d% 


C25=Cc&*2 :yS=SOR(r&*C2S5-Cc&**2) *h 


0 
ole 
No 


ta% (3) +c2%)=2 :a% (3+a% (3) +02%) =ys-y1% 


ylS=yS :c&=c&t1 
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PROC circlef: 
LOCAL c&,d%,x&, Y&, L&,h, ys 
GINIT “Draw a filled circle” 
x&=240 :dLONG x&,“Centre x pos”,0,479 


y&=80 :dLONG yé&,“Centre y pos”,0,159 





r&=20 :dLONG r&,“Radius”,1,120 
h=1 :dFLOAT h, “Relative height”,0,999 


IF DIALOG 





c&=1 :dS=2*r& :gAT x&-ré&,y& :gLINEBY 0,0 


WHILE c&<=d% 





VS=-SQR(r&*C&*2-C&**2) *h 





gAT x&-r&tc&,y&-ys :gGLINEBY 0,2*y% 
c&=c&+1 
ENDWH 


ENDIF 








ENDP 





If youuse gUPDATE OFF after the IF DIALOG line, and gUPDATE ON before the ENDIF, the 
procedure will run a little faster. However, all but the smaller circles will be drawn rather jerkily, 
piece by piece. 











I Zooming 
This is an example for the Series 3c only. The Series 5 does not have status windows and the 
Siena does not have large status windows owing to its screen size. 


For each of the three types of status window, this program changes the font to implement zooming. 


Press Psion-Z to cycle between small, medium and large fonts, and Shift-Psion-Z to cycle in the other 
direction. Esc changes to the next status window. 


As well as changing the font and style for the text window (for PRINT etc.), the FONT command 
automatically changes the default graphics window size (ID=1) and the text window size to fit exactly 
in the space left by any status window. (A special feature not used here is that FONT -S3fff, 0 just 
changes the window sizes without changing font). 


The procedure dispinfo: uses the command SCREENINFO to display the margin sizes in pixels 
between the default window and the text window, the text screen size in character units, and the text 
screen’s character width and line height in pixels. 


PROC tzoom: 


STATUSWIN OFF 


7) 


EM no status window 
































ZOOM: REM display with zooming 
STATUSWIN ON, 2 REM large status window 
ZOOM: 
STATUSWIN ON,1 REM and small 
Zoom: 

ENDP 
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PROC zoom: 











OCAL g 


oe 


,km%, zooms 





zooms=1 


font%(1)=13 :font$(1)=“(Mono 6x6)” 
font% (2)=4 :font$(2)=“(Mono 8x8)” 
font% (3)=12 :font$(3)=“(Swiss 16)” 


g%=%z+S200 
DO 
IF g%=%z+$200 
IF km% AND 2 
zooms=zoom%-1 


IF zoom%<1 :zoom%=3 








ELSE 








zooms=zoomst+1 


fo) 


IF zoomS>3 :zoom%=1 


eal 


NDIF 





dispinfo: 








gBORDER 0 











km$=KMOD 


UNTIL g%=27 





ENDP 





PROC dispinfo: 


,OCAL scriInfo% (10) 











SCR 


r. 


‘ENINFO scrinfo% () 
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: ENDIF 





: ENDIF 


FONT font% (zooms) ,style% (zooms) 


PRINT “Style=";style% (zoom%) 


PRINT rept$ (“1234567890”,15) 


PRINT “Left margin=";scriInfo%(1), 


PRINT “Screen width=”; scrinfo% (3) 


PRINT “Char width=”";scrinfo% (7) 


OCAL font%(3),font$ (3,20),styles% (3) 


:styleS (1) =0 
:styleS (2) =0 
:styleS (3) =16 





REM Shift-PSION-Z 


REM PSION-Z 





PRINT “Font=”"; font%(zoom%) ,font$ (zooms), 


AT 17,2 :PRINT “Top margin=";scrinfo% (2) 


AT 17,3 :PRINT “Screen height=”";scrinfo% (4) 


AT 17,4 :PRINT “Line height=”";scrinfo% (8) 





ENDP 


Animation example 


This program requires five bitmap files - one.pic to five.pic. Each of these would differ slightly. 
They might, for example, be five ‘snapshots’ of a running human figure, each with the legs at a 
different point in their cycle. 


The program copies each bitmap into a window of its own, then makes each window visible in turn, 
each time slightly further across the screen. 


To make bitmap files, first draw the pattern you want with any of the graphics drawing commands. 
(Use gLINEBY 0, 0 to draw single dots.) When the pattern is complete, use gsAVEBIT to make the 
bitmap file. For advanced animation, you could use a sprite as described in the ‘Using OPXs on the 
Series 5’ chapter for the Series 5 and the ‘Advanced Topics’ chapter for the Series 3c and Siena.. 





PROC animate: 
LOCAL id%(5),1i%,3%,SS5 (5,10) ,w%,h%,edge% 


REM example width and height 





REM screen edge - use 480 for Series 3c and 240 for Siena 














REM need not have “.pic” in the following for Series 3c and Siena 
s$(1)=“one.pic” :s$(2)=“two.pic” :s$(3)=“three.pic” 
s$(4)=“four.pic” :s$(5)=“five.pic” :j%=1 


WHILE 43<6 





i%=gLOADBIT (s$ (43) ) 





id% (7%) =gCREATE (0, 0, w%,h%, 0) 











gCOPY 1%,0,0,w%,h%,3 





gCLOSE i% :3%=3%41 








EM (1% MOD 5)+1 





EM previous window 
gUSE 1d%(j%) new window 


gSETWIN 1%,20 EM position it 











gORDER id%(3%),1 





EM make foreground 





At cc 
inal 
< 














EM make visible 


1%=1%+1 :PAUSE 2 








UNTIL KEY OR (i%>(edge%-w%) ) 





xX 
I] Two-voice “ice-cream van” sound 


This example is for the Series 3c and Siena only. 
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The following program plays a rising and falling scale. It uses the amplifier-driven loudspeaker device 
(with device driver SND:) which allows you to play tunes using two-note chords - ie it has two voices. 


This program uses I/O keywords as described in the ‘Advanced Topics’ section. Take care to enter 
them exactly as shown here. 


PROC main: 


LOCAL ret%, sndHand% 





ret%S=I00PEN (sndHand%, “SND:”,-1) REM open the devic 








IF ret%<0 
PRINT “Failed to start” 


PRINT err$ (err) 





GET 














BLSE 
icecream: (sndHand$%) 


IOCLOSE (sndHand%) 





ENDIF 





ENDP 





PROC icecream: (sndHand%) 


,OCAL notes1%(4),notes2% (14) 








.OCAL sistat%,lenl%,len2% 











REM define lst voice 
notes1%(1)=1048 :notes1% (2) =96 REM freq, duration 
notes1%(3)=524 :notes1% (4) =48 





len1l%=2 REM number of notes in voice 1 


REM define 2nd voice 








notes2%(1)=1048 :notes2% (2) =16 
notes2% (3)=1320 :notes2% (4) =16 
notes2%(5)=1568 :notes2% (6) =16 
notes2%(7)=2092 :notes2% (8) =16 





notes2% (9)=1568 :notes2%(10)=16 
notes2% (11)=1320 :notes2%(12)=16 





notes2% (13)=1048 :notes2% (14) =48 





len2%= REM number of notes in voice 2 
IOC (sndhand%,1,slstat%,notes1%(),lenl1%) 
REM voice 1 asynchronous 


IOW (sndHand%,2,notes2% (), len2%) 





REM voice 2 synchronous 
IOWAITSTAT slstat% 


ENDP 
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notes1%() and notes2%() are set up to hold len1% and len2% notes to be played on voice 1 
and voice 2 respectively. The number of notes to each voice must not exceed 16384. 


Each note is composed of two consecutive integers in the array with the first of each pair giving the 
frequency in Hz (middle A is 440Hz) and the second giving the note duration in quarter-beats per 
minute. 
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